From f0cf8d1affa69b7d52e276957fca027bb3348466 Mon Sep 17 00:00:00 2001
From: Thien-Thi Nguyen <ttn@gnuvola.org>
Date: Tue, 27 Mar 2007 14:12:33 +0000
Subject: [PATCH] (message-yank-original): Fix bug: Don't switch point and mark
 unnecessarily.

---
 lisp/gnus/message.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index 5bbb565dd7f..305d64a9af3 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -3349,7 +3349,8 @@ prefix, and don't delete any headers."
 		   (point)))
       (unless arg
 	(funcall message-cite-function))
-      (message-exchange-point-and-mark)
+      (unless (< (point) (mark-marker))
+        (message-exchange-point-and-mark))
       (unless (bolp)
 	(insert ?\n))
       (unless modified
-- 
2.30.2